function [map, estado] = kohonen(data, tam, eta, id)
  %KOHONEN crea una red kohonen que se entrena con los siguientes parametros
  %eta velocidad de aprendizaje data conjunto de entrenamiento size tamaño del mapa.

  map = som_randinit(data, 'rect', 'sheet', 'msize', tam);
  map.name = id;
  %radio es el 10% del tamaño de la red
  radius = sum(tam)/20;
  b = figure('Name', [map.name ' Posición de las neuronas']);
  a = figure('Name', [map.name ' Quantificación del error']);
  [map, estado] = som_seqtrain(map, data, 'trainlen', 65, 'alpha_ini', eta, 'tracking', 4, 'neigh', 'ep', 'radius_ini', radius, 'figures', [a,b]);
end


